﻿Public Class Inf_MortalidadBruta
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            FG.culturaPaginas()


        End If
    End Sub
    Private Sub Muestra_Mortalidad_NivelPais()

        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_Mortalidad.Visible = False


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOrME_Mortalidad_Bruta", param, "Muestra la tasa bruta de mortalidad-inf_mortalidad bruta")

        'si no hay datos salgo 
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        'muestro el panel 
        P_Mortalidad.Visible = True

        img_tasaBruta.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.TRes_D, 490, 160, "Indice Mortalidad Bruta-Nivel Pais", Drawing.Color.Blue)





    End Sub

    Private Sub Muestra_tasaXsexo()

        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOrME_Mortalidad_Bruta_x_sexo_xAnio", param, "Muestra la tasa de mortalidad x sexo-inf_Mortalidd")

        'si no hay datos salgo 
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        

        img_DescriminandoXSexo.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.DosDimensiones, 490, 160, "Indice de mortalidad por sexo - Nivel pais", Drawing.Color.Blue)






    End Sub

    Private Sub MuestraMortalidadxEdad()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter


        'limpio el chat 1
        Chart1.DataBind()


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOrME_Mortalidad_Bruta_x_Edad_xAnio", param, "Muestra la tasa de mortalidad x Edad-inf_Mortalidd")

        'si no hay datos salgo 
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        FG.CargaControlChart_asp(Rs, Chart1, "Indice mortalidad por edades", DataVisualization.Charting.SeriesChartType.Area, False, DataVisualization.Charting.AreaAlignmentOrientations.Vertical, Drawing.Color.Blue, , , 600, 300, 100, True, , , , 100)



    End Sub


    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click

        FG.SacaCartelDeAViso(lblMsje)

        'seteo el chat 1
        Chart1.DataBind()


        'muestro la sata bruta '
        Muestra_Mortalidad_NivelPais()

        'si hay datos voy a buscar la tasa x sexo 
        If P_Mortalidad.Visible = True Then
            Muestra_tasaXsexo()

            MuestraMortalidadxEdad()
        End If
        '-------------------------


        If P_Mortalidad.Visible = False Then
            FG.MuestraCartel("No hay datos para mostrar", lblMsje)
        End If

    End Sub
End Class